home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
msg.src
< prev
next >
Wrap
Text File
|
1991-02-21
|
883b
|
22 lines
%%HP: T(3)A(D)F(.);
@ MSG, a simple error message viewer.
@ by Joseph K. Horn
@ To use: Press MSG key, type a hex integer, and press ENTER.
@ The message with that hex number will be displayed.
@ This is a handy way to check a library's messages or message translations.
@ (I wrote it purely to explore Bill Wickes' HYDE library!)
@ To abort without input, just press ENTER (don't press ON).
\<< "Message number:" @ stack prompt (shown on top line).
{ "#h" 2 \Ga } INPUT @ alpha mode; insert mode; hex input.
IFERR OBJ\-> @ attempt to convert input string into hex integer.
IFERR DOERR @ force the specified error to occur.
THEN @ keep error from halting; just continue.
END
IFERR ERRM "\010" + 1 DISP 1 FREEZE @ show the error message.
THEN @ handle bad error messages.
END
THEN DROP @ clean up if bad input.
END
\>>